COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "MAKE SAVE FILES FROM DMP FILES"
C00003 ENDMK
C⊗;
BEGIN "MAKE SAVE FILES FROM DMP FILES"
INTEGER EOF,WORD;
STRING NAME;
INTEGER ARRAY BARF[0:5];
OUTSTR("FILENAME?");
NAME←INCHWL;
OPEN(0,"DSK",'10,2,0,0,0,EOF);
LOOKUP(0,NAME&".DMP",EOF);
IF EOF THEN USERERR(0,0,NAME&".DMP NOT FOUND!");
FILEINFO(BARF);
OPEN(1,"DSK",'10,0,2,0,0,0);
ENTER(1,NAME&".SAV",EOF);
IF EOF THEN USERERR(0,0,NAME&".DMP, ENTER FAILED!");
WORD←(BARF[3] LAND '777777000000) LOR '74;
WHILE ¬EOF DO BEGIN
	WORDOUT(1,WORD);
	WORD←WORDIN(0);
	END;
RELEASE(0);
RELEASE(1);
END;